note
	description: "Summary description for {MIRAGE}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	MIRAGE

create
	make

feature {NONE} -- Implementation

	modulo:MC72
	--MODULO MC72 DEL AVION


feature -- Constructor
	make
			-- Constructor de la clase MIRAGE
			do
			create	modulo.make
			end

	feature --Operaciones de la clase Mirage

		atacarObjetivo(obj:STRING)
			-- Operacion encargada de atacar a un objetivo...
			local
				flag :INTEGER
				cant: INTEGER
				preparadoOK: BOOLEAN
				listoParaApuntar: BOOLEAN

			do
				--1. Preparar el misil.
				if (NOT preparadoOK)
					then
						if (NOT listoParaApuntar) then
							flag:=0
							modulo.preparar_Misil()
							listoParaApuntar:= true;
							io.put_string ("SE PREPARO EL MISIL CORRECTAMENTE");
						end
						--2. Apuntar el misil.
						flag:=1
						modulo.apuntarmisil(obj)
						io.put_string ("SE APUNTO EL MISIL CORRECTAMENTE");

						--3. Lanzar el misil.
						flag:=2
						modulo.lanzarmisil
						io.put_string ("SE LANZO EL MISIL CORRECTAMENTE");

					end
					io.put_string ("TERMINO SIN FALLAR");

				rescue
					if (flag=0) then
						preparadoOK := true;
						retry
					else
						if (flag=1) then
							cant:=cant+1
							if (cant<5) then
								retry
							end
						end
					end
			end
	end
